ccc 
ccc 
ccc 
ccc 
ccc 
ccc 
ccc 
ccc 
ccc 
ccc 
ccc 
ccc 
ccc 
ccc 
ccc 


EEEEEEEEEE Xx XX PPPPPPPP AAAAAA NN NN DDDDDDDD 

EEEEEEEEEE xx XX PPPPPPPP AAAAAA NN NN DDDDDDDD 

EE Xx XX PP PP AA AA WN NN DD DD 

EE XX XX PP PP AA AA NN NN OD DD 

EE XX = XX PP PP AA AA WNNNN NN DD DD 

EE XX XK PP PP AA AA WNNNN NN DD DD 

EEEEEEEE xx PPPPPPPP AA NN NN NN ODD DD 

EEEEEEEE Xx PPPPPPPP AA AA NN NN NN DD DD 

EE XX = XX PP AA WN NNNN DD DD 

EE XX = XX PP AAAAAAAAAA NN NNNN DD DD 

EE XK XX PP AA AA NN NN DD DD eeee 
EE XX XX PP AB AA NN NN DD DD eee 
EEEEEEEEEE Xx XX PP AA AA WN NN DDDDDDDD coos 
EEEEEEEEEE Xx XX PP Aa AA NN NN DDDDDODDD eee 
LL IIIII] SSSSSSSS 

LL HII SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLELLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 
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MODULE dcx_expand ( ! Data expansion routines 
fs col S35¢) 
DENT = *y 


wn 


BEGIN 


1 

i eeeeeeeeeeeeeerereeeeeeeeeeeeeeeeeeeeeeeneraeeeeeeeeeneeeeneeeeneneeeeeeeene 
'@ 

ie COPYRIGHT | (<) 1978 1980, 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, “MAYNARD. MASSACHUSETTS. 
ie ALL RI bHes URESERVED . 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corte 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Hd Stier OF THE ABOVE ged NOTICE. THIS SOFTWARE OR ANY OTHER 


3333s 


a ee ee a a a ee ee ee ee ee a a ee ed ad ad ad = OOOOCY 
- . 
* 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
's CORPORATION. 

ITY FOR THE USE OR RELIABILITY OF ITS 


'@ DIGITAL ASSUMES NO RESPONSIBILITY 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
& 
® 
® 
Ld 
® 
a 
ay 
® 
! * 
ie TRANSFERRED. * 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 


Lee ARARERAAEAAAEEAAAAAAAAARA TEER AAA AEAAEAAAATEAAAAAAAAAAAAAEAES 


'e+ 


MEWN “ODO ONAUSWN “OC OONOAUE WN OOONOUS WN 


WIE NIAAA PUPUNINPYNPIPYNINIDD 2 2 OOO ee 
MEUM — OC OONAUESWN “QO VDONOUES WN 


SS ee risen dnd) 
~ 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


Be On Be Se Se Se Se Se Se Se Ge Se Se Fe Se Se Fe Ge Se Ge Fe Se Fe Se Gs oe Se Ge Ge Se Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Se Se Ge Fe Se See Ge Se te ae 


i] 

1 

} FACILITY: 

32 DCX == Data Compression / Expansion Facility 

i He ABSTRACT: 
35 39 ' The Data Compression / Expansion procedures provide a 8 general 
re 29 method for reducing the storage requirement for a arbitrary data. 
4@ 4@ i ENVIRONMENT : 
4 04 : 
44 Bee ‘ VAX native, user mode. 
45 045 : 
46 Bog lee 
47 : 
48 048 : 
49 049 ! AUTHOR: David Thiel 
50 0050 : 
33 33 : CREATION DATE: July, 1981 
34 33 i MODIFIED BY: 
54 054 ' 
55 055 i= 


Declarations’; 


Sass 


-—O0OnNo 


*sys$library:starlet'; 


14 
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= 19be $3:98 363 . BuAStERsCDCK sac 


14-Sep- 


! System macros 


' DCX macros 


oO 
wm 


LFESS 


dcx$ctx_ check : 
gexsnee..chek : 


! DCX public structure definitions 
! DCX private structure definitions 
! Check context block 


! Check map 
' Allocate memory 


! Deallocate memor 
$ Lkg_long_move NOVALUE, ; Copy arbitrary length data 


VMSiAN—O0O~ 


4 r.dx : : 
SSING_MODE (GENERAL); 
EXTERNAL LITERAL 


ON NNN NNN NNO AAAAAOOOOMUM 
woonoe SSF CROSSES 


dcx$_invdata, 


-o 
OO NNN NNN NNO OO 


co 00 Co 
wr 


FORWARD ROUTINE 
dcx$expand_init, 
dcx$expand_data, 
dcx$do_expansion_0, 
dcx$expand_done; 


ts a bs 4 ss st tt 


ELRLLLRRKRLKKRLKKKKK KPa 


0.0900 09 C0 Co 
NOUS WN @OWOONOUSWN—OOe 


SNe 


General string copy 


! initialize for data expansion 

! expand data record : 

! internal expansion routine -- type 0 
! delete expansion context 


DISKSVMSMASTER: COCX.SRCJEXPAND.B32; 1 
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DCK_EXPAND 15-Se $1984 23:42:4 VAX-11 Bliss-32 V4.0-74 Page 3. 
you2800 dcxSexpand_init - Initialization for data expan 12-80 -198¢ #3348363 DISKSVMSMASTER: CDOCX.SRCJEXPAND.832;1 . (3) | 
; 30 83 } ZSBTTL ‘dexSexpand_init - Initialization for data expansion’ 
3 36 1 GLOBAL ROUTINE dcxSexpand_init (context_addr, map_addr) = 
= 2 BEGIN 
co oe 49 +4 
: 49 . 
; 4 494 ! Initialization for data expansion. 
co Se 495 ! Allocate and initialize context area. 
; 4 ' 
; 99 9 i Inputs: 
3 100 98 2} | 
; 101 99 : context_addr.mz.r Address of context longword | 
; 196 230 ' map_addr.ra.r Address of map 
; 10 0501 : 
: 104 be$ ! Outputs: 
: 105 050 : 
> 106 0504 : context_addr.mz.r Address of context Slock is stored 
: 107 0505 4 
; 108 B28 ' Return value: 
; 109 507 ' 
3; 110 0508 : status.wlc.v 
; 49) 0509 : 
; 1*¢ Bato : dcx$_normal ALL is well 
s 511 ; dcx$_invmap Invalid map str. ture 
3114 Oo1¢ ! LibS-insvirmem Error allocating memory 
3 6115 051 len 
; 116 0514 
; (117 0515 BIND | 
: «118 9218 ctx = .context_addr : REF BBLOCK, ! address of context block 
3 1 bere dcxmap = .map_addr : REF BBLOCK; ! address of map 
$ 15) 0519 ctx = 0; -! assume failure 
3 \s¢ 0520 perform (dcx$map_check (.dcxmap)); ! validate map 
ae 0521 eer rere (dex$get_vm (ctx$k_fixed_len + exp$k_length, ctx)); 
; 124 05 4 F true 
3 Veo 05 THEN 
: 126 0524 BEGIN 
: 127 0525 
: 128 33 $ BIND 
; 4 ; i exp = ctx Cctx$l_specific] : BBLOCK; 
: 13) 03 S LOCAL 
:" 2 ¢ 530 cptr : REF VECTOR C, LONG), 
: 133 2 1 dcxsbm : REF BBLOCK; 
3 135 5 g ctx Cctx$l_size] = ctx$k_fixed_len + exp$k_length; 
s 3 534 ctx Cctx$b_type] =_ctx$c_expnd; 
s i357 535 ctx (ctx$w_versicn] = ctx$c_version; 
, ¥ 5 § ctx Cctx$l_sanity] = ctx$c_Sanity; 
: 139 5 ctx Ceotx$l_map) = .dcxmap; 
: 140 538 perform (dex$get_vm (4 * 4 * .dcxmap Cdcxmap$w_nsubs]. exp Cexp$l_map_segs])); 
3; (141 539 cptr = .exp Cexp$l_map_segs); 
: 146 540 dcxsbm = .dcxmap + -Ccinep ccunep$u, sub}; 
; 143 341 ; INCR i FROM 0 to .dcxmap Cdcxmap$w_nSubsJ-1 D0 | 
$145 328 & cptr £0} = .dcxsbm + .dcxsbm pdcusbagu. flags ; 
: 146 0544 4 cptr (1) = .dcxsbm + .dcxsbm Cdcxsbm$w_nodesJ; 


ee 13-Sep-1984 73: 4038 VAX=11_ BLiss-32_V4.0-7% Page 44 


dcxSexpand_init - Initialization for data expan 14-Sep-1984 12:16:0 DISKSVMEMASTERSLOCK: SRCTEXPAND.832: 1 (3 | 


-EXTRN LIBS_STRTR 
-PSECT scamteaalll 


: M47 45 4 JF, gdcxsbm Cdcxsbm$wnext] EaL 0 | 
: 149 ar 4 eptr [2] = 0 | 
; 1 1 rk ? ae cpg C C2] ~ A vag + .dcexsbm Cdcxsbm$w_next] - 2 * .dcxsbm Cdcxsbm$b_min_charJ; | 
P r e 
5 5 5 3} 4 cote = cptr e338" 
> «154 § & dcxsbm = -dexsbm + .dexsbm Cdcxsbm$w_size); 
: 18 227 END; | 
; : ; S222 RETURN dcx$_normal; 
; 135 gaa END; ! of dcex$expand_init 
TITLE DCX EXPAND 
.EXTRN LIBSANALYZE_SDESC_R 
eEXTRN DCXSCTX =CHECK. DeRShap CHECK 
-EXTRN DCXSGET-VM, DCX 
SEXTRN DEXSLONG MoV VE, LIBSStOPy_ R_DX 
XTRN DCX$ » BCX$_INVCTX™ 
003¢ 00000 .ENTRY DCXSEXPAND_INIT, Save R2.R3,R4,R5 : 0490! 
04 BC D4 00002 CLRL © @CONTEXT_ABOR : 0519 
53 08 BC DO 0000 MOVL § @MAP_ADDR, R3 ; 0520 
50 00 00009 MOVE = RB, : 
00006 30 0000c BSBW DCXSMAP_ CHECK ; 
37 50 E9 0000F BLBC STATUS, ~1$ ; 
04 AC DD 00012 PUSHL tONTERE ADDR : 0521 
18 DD 0001 PUSHL ae ; 
00006 CF 02 FB 00017 CALLS i DEXscer _vM ; 
A 50 £9 0001C BLBC © STATUS, 1$ ~ : 
: 04 BC bO 0001F MOVL §§ @CONTEXT_ADDR, R2 : 0527 
6 18 DO 3 3 VL #56, (R2) : 0533 
04 Ae 02 90 00026 VB #2, 4(R2) : 05 
: A2 B4 OO02A CLRW 8(R3) ; 0535 
OC A2 4F317¢6 ar 00 090 MOVL  #1328643173, 12(R2) > 05 
Oy RR BB | Ble Basti BS 
50 10 A 3 00 ¢ MOVZUL $3(R 3}, RO ; | 
00006 ¢r 03 fB 000G8 CACtS #3" DCKSGET WM : 
4 5 £9 0049 1$: BLBC TATUS, es ; 
50 4 =A bo O04¢ MOVL 2 cna) CPTR > 0539 
| Pa aee aie ee ene : BS 
5 10 A Sc 5 7 MOVZWL fairs). R5 > 0541 | 
it ee pe 
52 06 Al 3¢ o66 2$:  - MOVZWL 6(DCXSBM), R2 ; 0543 | 
60 52 C 64 ADDL3 R2, DCXSBM, (CPTR) ; 


ee ee ee, 


i 


04 Ad 
53 
08 Ad 
C3 


3; Routine Size: 165 bytes, 


13-Sep- 


sf 08 H 3 cr 
fxce i 
we 2 te 9008 
i ih 7A 
i 5 i} 7C 3$: 
i 02: A te 88 
SE Soi 
oC AO | 8 0095 4$: 
3 iy 8 83a 
§ i 0096 
54 5 F 0099 5$ 
50 00000000G 8F D0 0009D 
04 OO00A4 6$ 


Routine Base: 


SCODES + 0000 


move Ff 


pa198¢ 2:16:08 


dcx$Sexpand_init = Initialization for data expan 14-Sep- 


V 


aaocgten CDCK.SRCJEXPAND.832; " es 


AX-11 Bliss-32 V4.0-74 


8(DCXSBM) 


b 


DCxsBA, “Zccetey 
iS toexean 


DCXSBM, R3 


C 
R 


SBM 


= x 


BM), R2 


x 


8(CPTR) 
12(CPTR) 


| 

5 

* «35 
0544, 
0545, 


0547, 
0549. 
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v647000 dcx$expand_data - Expand data record 1228087138 #3542503 DL SKSVMGMASTERSLDCX. SRCSEXPAND.B32;1 oe (4) | 


3 16) H } ZSBTTL ‘dcxSexpand_data - Expand data record’ 

; 168 2 1 soo ROUTINE dex$expand_data (context_addr, in_rec : REF BBLOCK, out_rec : REF BBLOCK, out_len) = 
: 165 6¢ ¢ it 

; 198 6 } 

3; 64 ! Expand data record 

HB BEE snout 

3 ! Inputs: 

; 196 Sey ; 

3 Wi 4 : context_addr.mz.r Address of context longword 

3 176 2$ ; in rec.rt.dx Descriptor for input (text) data record 
3 if? 259 out_rec.wt.dx Descriptor for output (text) data buffer 
3; «(175 276 ! Outputs: 

3; if 57 : 

s W77 574 : context_addr.mz.r Context block accumulates data 

3; 1738 0575 ; out _rec.wt.dx Buffer is filled with output record 
3; 179 pa7e : out_len.wwu.r Word in which to store length of 
: 180 057 : output record (optional) 

; 6181 Bare : 

3 136 der ! Return value: 

3; 1 580 : 

3; (184 0581 : status.wic.v 

; 185 beng : 

; 186 B28 ; dcx$_normal ALL is well 

: «187 0584 ! dcx$_invctx Invalid context block 

; «188 0585 : dcx$_invmap Invalid map 

; «6189 0586 feo 

; 190 F414 

; «(191 588 BIND 

; 136 0589 ctx = .context_addr : REF BBLOCK ! context block 

; 19 0590 dcxmap = ctx (ctx$l_map] : REF BBLOCK, ! map address 

3; 194 Bea, res_len = .out_len : WORD; ' result length 

; 6195 236 

; 196 059 LOCAL 

3; 6197 0594 in_len, ! input length (bytes) 

; 198 0595 in_addr, ! input data address 

; 199 0596 status; ! return status 

: 200 0597 

; 201 0598 BUILTIN 

H 4 $444 NULLPARAME TER; 

; 204 060) perform (dcx$ctx_check (.ctx, ctx$c_expnd)); 

: 205 6 § perform (dcx$map_check (.dcxmap)); ' 

: 4 Benz perform (LibSanalyze_sdesc_r2 (.in_rec; status, in_len, in_addr); .status); 
; 208 Ben? CASE .out_rec Cdsc$b_class] 

: 209 O06 FROM MIN (dsc$k_Class_z. dsc$k_class_s) 

: 210 60 TO MAX (dsc$k_class_z, dsc$k_class_s) 

3 11 60 OF 

3 \¢ 60 ect 

. a 610 dsc$k_class_z, dsc$k_class_s): 

: 214 611 BEGIN 

: 215 ol¢ 

5 1¢ 61 LOCAL 

: 21 0614 result : LONG; 


Bl isses2 v4. ge 7. 
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. 
* 
+ 
° 
° 
. 
. 
. 
° 
7 
° 
o 
7 
6 
° 
? 
. 
° 
© 
o 
. 
° 
° 
a 
- 
° 
. 
° 
. 
s 
° 
© 
e 
° 
° 
7 
* 
- 
° 
° 
° 
. 
° 
° 
. 
° 
© 
° 
a 
° 
° 
. 
° 
” 
o 
oe 
° 
. 
° 
° 
. 
° 
- 
oe 


status = dcx$do_expansion_0 ( 
ctu, sinaddr, ein len, res_buf, ZALLOCATION (res_buf), 
re : 

atus! = LibSscopy or dx (result, res_buf, .out_rec); 


status! EQL Li strtru 


1 15 
i§ ele status = dcx$do_expansion_0 ( 
0 eis ote of inet dr, .in. len, .out_rec Cdsc$a_pointer], .out_rec Cdsc$w_length], 
61 CHSFILL (%C' *, .out dsc$ h]-. 4 , : 
233 pert ma rpanint tence) Cdsc$w_length] result, .out_rec Cdsc$a_pointer]+.result) 
621 THEN 
q e res len = .result; 
0624 Cinrange, outrange): 
1 tga 
LOCAL 
0628 resuit : LONG 
S status] : LONG 
6 res_buf : VECTOR (65535, BYTE]; ! result buffer 4 
Y] 
se 
a 
0 37 
8 8 
39 


PARA AA AAA AAA AAAS 


BEGIN 
IF NOT NULLPARAMETER (4) 
THEN 


LibSanalyze_sdesc_r2 (.out_rec; status, res_len); 
status! = dcx$_trunc; 


BEEPS PWIW 
NAW ES UN @ OC OONA UNE WN OC OONAUESWN —“OOONOUS WN 


POPOPONINIPONONINNofonS nofonononononofony 


4 
4 
4 
4 
4 
4 4 N 
4 0644 ELSE IF NOT NULLPARAMETER (4) 
4 0645 THEN 
4 064 res_len = .result; 
5 064 If .stafus AND NOT .status! 
5 0648 THEN 
5 0649 status = .status1; 
5 0650 END; 
5 0651 TES; 
5 bo3¢ RETURN .status; 
5 065 
5 0654 1 END; ! Of dcx$expand_data 


FC 00000 eENTRY DCXSEXPAND_DATA, Save R2,R3.R4,R5,R6,R7 ; 0560 | 
9E 0002 MOVAB LIBSANALYZE,SDESC_R2, R ; 
9 00 MOVAB 65544 (SP) ; 
C1 0001 ADDL3 #16, @CONTEXT_ADDR, R2 ; 0590 
D 01 MOVL = : 0601 | 
p 4 MOVL § @CONTEXT_ADDR, RO : 
001C BSBW = DCXSCTX_CHECK ; 
E9 O001F BLBC = STA ; 
b 0 MOVL  (R2), RO : 0602 
0 BSBW = DCX$MAP_CHECK ; 
E9 000 BLBC STATUS, "1$ ; 
D0 00028 MOVL IN_REC, RO : 0603 | 
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¥602000 dcxSexpand_data - Expand data record 122868138 $334 :0 DISKSVMSMASTER: cen OSRCTEXPAND. B32; 
67 16 F JSB LIBSANALYZE_ SDESC_R2 
01 0 Fs } 1$: BLBS STAT 
53 O¢ A bo 5 28: MOVL T_REC, R3 
01 00 AS BF 9 CASEB (RB) Bore #1 
00 007 003E 3$ “WORD 7'$~ 
E DD 0004 PUSHL SP. 
7E FFE i 3¢ bes mOVZuL #65535, -(SP) 
5} DD 0004¢ PUSHL 
2 DD 0004 PUSHL IN ADDR. 
04 BC DD 0005 PUSHL acONTEX 
0000v cf FB 005 CALLS . DCK860. EXPANSION. 0 
6 DO 0005 MOVL 4 , STA 
pp 0058 PUSHL R 
Oc AE 9F 00050 PUSHAB RES by 
08 AE OF 9060 PUSHAB RESOL 
semen HD TM 
000000006 &F 34 pI 90060 cMPL TATUS1, #LIBS_STRTRU 
04 6c 91 $0076 CMPBs«( AP), #4 
11, «1F 90079 BLSSU) 4 
10 AC 05 00078 TSTL  16¢AP) 
o¢ 13 0007E BEQL «86s 4$ 
50 Dd 00080 MOVL R3, RO 
67 16 00083 JSB LIBSANALYZE_SDESC_R2 
1 50 00 00085 MOVL , 
10 BC 51 0 00088 MOVL 1, @OUT_LEN 
54 000000006 ef D0 008¢ 4$: MOVL #DCX$_TRONC, STATUS1 
04 6c 91 80995 5$: CMPB CCAP), #4 
09 1F 00098 BLSSU 6 
10 AC D3 0009A TSTL  16(AP) 
04 13 00090 BEQL 6$ 
10 BC 6 BO 0009F MOVW RESULT, @OUT_LEN 
42 6 E9 000A3 6S: BLBC 3s ST 
3F 54 EB O00A6 BLBS § STATUS{, 8$ 
56 34 DO OO0A9 MOVIL. STATUST. STATUS 
A 11 OOOAC BRB $ 
04 A 3 OOAE 7$: PUSHAB RESULT 
7E 63 3C 00081 MOVZWL (R3), =(SP) 
06 Ad DD 0084 PUSHL 4(R35 
51 DD 00087 PUSHL IN_LEN 
52 DD 089 PUSHL IN ADDR 
04 BC DD 00088 PUSHL a@CONTEXT_AD 
0000v CF FB OB CALLS #6, DCX$BO0_EXPANSION_O 
b b OC OVL RO, STATUS 
31 6 C8 MOVZWL (R$), R1 
50 04 a5 ge AE ; é ADeL ReutT: RR », RO 
51 20 6E 09 Se 2 MOV Pe (SP), Ra): R1, (RO) 
04 6¢ 91 000D CMPB «CAP, #4 
A 1F 0000C BLSSU 8s 
10 AC 05 OOODE TSTL 6(AP) 


Pee Se Se Se Ge Se Se Se Se Se Se Se Se Se Be Fe Be Se Se Fe Ge Ge Se Se Be Se Se Ge Be Se Se Se Se Se Se Be Be Fe Fe Se Se Se Se Se Se Fe Se Se Se Se Be Se Se te Se Be 


atti 


3; Routine Size: 


dcx$expand_data - Expand data record 


236 bytes, 


10 4 


Routine Base: 


tH. § 


SCODES + OOAS 


tSeo-t9ge 25:42:45 vanedy atssee2 ut, 


8$ 
RESULT, @OUT_LEN 
STATUS, RO 


OSRCIEXPAND.B32;1"° 31 


0 
) 
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; +? 5 ! ZSBTTL ‘dcex$do_expansion_0 - Type 0 expansion’ 

3 261 1 ROUTINE dcx$do gxpension.0 ( 

3 ; eccin ctx : REF BBLOCK, in_addrl : REF VECTOR C, BYTE], in_bytes, out_addr1 : REF VECTOR C, BYTE), out_byt 
: ee 4ee 

; 28 Expand data record using type 0 expansion 

; 68 ; Inputs: 

: % i gtx Address of context longword 

; 271 ; n_addr1 Address of input recor 

. 2 | } in_bytes Length of input record 

; e7 ! out_addr1 Address of output buffer 

3 a 4 out_bytes Length of output buffer 

; g re i Qutputs: 

; 278 74 i x Context block accumulates data 
3 a Ror? res_addr Address in which to store result Length 
; 81 0877 Status value: 

; Hi $e78 i dcx$_normal ALL is well 

; 284 0680 ‘ dcx$_invdata Invalid encoded data 

3 +H eet } dcx$_trunc Result buffer too small - output truncated 
ES a 

; 34 06s dcxmap = ctx Cctx$l_map] : REF BBLOCK; ! map address 
; 291 pes -res_addr = 0; ! initialize resulting length 
; 3 b688 IF -dcxmap Cdcxmap$w_nsubs] NEQ 0 

> 29% 0690 BEGIN 

; 36 $693 LOCAL 

; 39 9 res_len : LONG, 

; 98 694 in_addr : REF VECTOR C, BYTE) 

: 299 0695 out_addr_: REF VECTOR C, BYTEs, 

; 300 069% cptr : REF VECTOR C4, LONG), 

: 301 , offset : LONG; 

; 08 39 BIND 

3 304 exp = ctx CctuSh sogetfic2 : BBLOCK 

3 305 A 1 base_ptr = exp Lexp$l_map_segsJ) : REF VECTOR C, LONG); 
F $9 7 : in_addr = .in_addr1; 

; 308 7 out_addr = .out_addr1; 

: 309 705 res_len = 0; 

; 310 7 offset = 0; 

: 311 7 sete = base_ptr (0); 

; i 7 2 DECR byte_counter FROM .in_bytes - 1 T0 0 DO 

ai 2B ante 

: 315 711 4 LOCAL 


vouzb00 dcx$do_expansion_0 - Type 0 expansion 1$-fen-1984 $3:48:63 be KSVME MSM hadi ER COCK OSRCSEXPAND. B32;1 eee (3) 


byte_full_of_bits : BITVECTOR (8); 


heh fullof_bits = CHSRCHAR_A (in_addr); 
HH qrounter FROM 0 TO 7°00 


an 


BIND 
flags = cptr 9 : REF BITVE Yn 
nodes = cptr_[1] : REF VECTOR orig. 
next = cptr C2] : REF VECTOR C, WORD 


If .byte_full_of_bits C.bit_counter] 
THEN 


offset ffset + 1; 
IF NOT flags’ offset] 
THEN 


} 
| 
| 
| 
BEGIN | 
° t= 

ffset = .offset + .offset) EQL 0 

RETURN dcx$_normal; 


ELSE IF .res_len LSS .out_bytes 
THEN 
BEGIN 
out_addr C.res_len] = .nodes C.offset]; 
res. “len = .res_len + 1; 
addr = ..fres_addr + 1; 
if jfext NEQA 0 


MEUM OO OONOUESWN-"O0OOne 


I 
tfse nodes C.offset); 
cont (o 


cptr = base_ptr (4 * .next C.nodes C.offsetJj); 
offset = 0; 


Ss 
RETURN dcx$_trunc; 
ND; | 

END; 
RETURN dcx$_invdata; 
rE TF -in_bytes GTRU .out_bytes | 


BEGIN 

dcx$long_move (.out_bytes, .in_addr1, .out_addr1); 
-res_addr = .out_bytes; 

RETURN dcx$_trunc; 


BEGIN 
dcx$lon smove (. in gbytes. .in_addr1, .out_addr1); 
-res_addr =. by es; 

A dcx$_ he 


END; ! Of dcex$do_expansion_0 


RIANA AHA A MAPPINIHNE SIIB. ODD D D O B II P AAA A I TTT 
mm 
- 


s . SSS ESSe 
MEWN —OVOONOUSWN—OVOOnNOu 


dcx$do_expansion_0 = Type 0 expansion 


O3FC 000 


10 
18 65 
6 
10 =A 
68 
3 it 
ti $f 
i 
oc AC 
i 
; 
5 
04 B04 
5 
2 
s 
4A 
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; Routine Size: 
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3 7 766 } ZSBTTL ‘dcxSexpand_done -- Release data expansion context’ 
i oa 76 GLOBAL ROUTINE dcx$expand_done (context_addr) = 
; 37 76 BEGIN 
3 74 7 'ee 
:  3hR try Si Release dat ‘ text 
g ' Release data expansion contex 
: 358 me 3 . 
3 7 77 i Inputs: 
3 7 774 i 
; tt ae context_addr.mz.r Address of context longword 
3 e r78 i Outputs: 
=. 77 i 
3 rf a4 context_addr.mz.r Context block accumulates data 
; 386 349 i Return value: 
; 387 7 $ i 
; 388 078 i status.wlc.v 
; 389 0784 i 
; 390 0785 i dcx$_normal ALL is well 
; 391 o786 i dcx$_invctx Invalid context block 
; 39 078 i dcx$_invmap Invalid map structure 
; 39 144 i. 
; 394 078 
3; 395 0790 BIND 
: 3% 0791 ctx = .context_addr : REF ww ! address of context block 
: 397 079 exp = ctx Ccetx$l_s ecific] « BLO 
3 oS 9732 dcxmap = ctx CctxSl_map) : REF eeeLOtK: ! address of map 
; 400 0795 perform (dcx$ctx_check (.ctx, ctx$c_expnd)); 
3; 401 0796 perform (dcx$free_vm (4 * 4 * ,dcxmap [ecnmiote. nsubs], .exp Cexp$l_map_segs])); 
: 40 0797 por tore (dex$free_vm (.ctx Cetx$l size], .ctx))} 
; 40 0798 0; ‘mark context as gone 
3; 604 0799 RETURN dex$_ normal; 
; 405 0800 
; 406 0801 1 END; ! Of dcex$expand_done 
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3; § END ! Of module expand 
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H PSECT SUMMARY 

; Name Bytes Attributes 

: SCODES 653 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 

; eoceeee= Symbols -------- Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 1 0 581 00:01.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:EXPAND/OBJ=OBJ$:EXPAND MSRC$:EXPAND/UPDATE=(ENHS$: EXPAND) 
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